my $path = $ARGV[0] ;opendir SRC_DIR,$path or die " can not open src dir";open NAME_FILE ,">".$path."/NAMES"  or die("can not open file");while(my $file_name = readdir SRC_DIR){		next unless $file_name =~ /\.(h|cc)$/;	my $dir = $path;	$dir =~ s/(\.\.\/)//g;		print NAME_FILE "'".$dir."/$file_name', \n";}close SRC_DIR;close NAME_FILE;